home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / number / numbers.gbl < prev    next >
Encoding:
Text File  |  1991-10-03  |  917 b   |  49 lines
  1. 'These routines replace Visual Basic's "missing"
  2. 'binary coded decimal and IEEE string/numeric
  3. 'conversion routines found in QuickBASIC 4.X
  4. 'as well as the BASIC PDS.
  5. '
  6. 'These declares are required in the GLOBAL module
  7. 'of any program that use the MKL,MKI,MKS,MKD or
  8. 'CVD, CVI,CVL or CVD functions.
  9. '
  10. 'Marquis Computing
  11. '
  12. DefInt A-Z
  13. ' used by CVL() & MKL()
  14. Type NumL
  15.     Num As Long
  16. End Type
  17. Type StrL
  18.     S As String * 4
  19. End Type
  20. Global NumL As NumL, StrL As StrL
  21.  
  22. ' used by CVI() & MKI()
  23. Type NumI
  24.     Num As Long
  25. End Type
  26. Type StrI
  27.     S As String * 2
  28. End Type
  29. Global NumI As NumI, StrI As StrI
  30.  
  31. ' used by CVS() & MKS()
  32. Type NumS
  33.     Num As Single
  34. End Type
  35. Type StrS
  36.     S As String * 4
  37. End Type
  38. Global NumS As NumS, StrS As StrS
  39.  
  40. ' used by CVD() & MKD()
  41. Type NumD
  42.     Num As Double
  43. End Type
  44. Type StrD
  45.     S As String * 8
  46. End Type
  47. Global NumD As NumD, StrD As StrD
  48.  
  49.